home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Games Collection 1
/
software vault.zip
/
software vault
/
CDR10
/
SPX20.ZIP
/
SPX_INT.ZIP
/
SPX_FLI.INT
< prev
next >
Wrap
Text File
|
1993-09-14
|
1KB
|
46 lines
Unit spx_fli;
{$X+,O+ }
{ SPX Library Version 2.0 Copyright 1993 Scott D. Ramsay }
Interface
Uses spx_vga,spx_tim;
const
leavelast : boolean = false;
leavefirst : boolean = false;
type
frameproc = procedure(totframe,frame,loop:longint;var fquit:boolean);
delayproc = procedure(speed:integer);
fli_hdr = record
size : longint;
magic,frames,
width,height,
depth,next : word;
speed,frit : longint;
reserved : array[1..104] of byte;
end;
frame_hdr = record
size : longint;
magic,chunks : word;
reserved : array[1..8] of byte;
end;
var
every_frame : frameproc;
userdelay : delayproc;
crnthdr : fli_hdr;
framesdid,
crntfrm : longint;
procedure IncPtr(var marker:pointer;incby:longint);
function fli_header(fl:string):boolean;
function read_header(fl:string;var fil:file):boolean;
function memReadHeader(var p:pointer):boolean;
function fli_play(fl:string;sp,tms:integer):boolean;
function memFliPlay(var at;sp,tms:integer):boolean;
procedure memNextframe(var p:pointer);